﻿Imports DAO
Imports DTO

Public Class TheLoaiBUS
    Public Function Laytheloai() As List(Of TheLoaiDTO)
        'kiem tra Business rule neu co
        Dim tldao As New TheLoaiDAO()
        Return tldao.LayDanhSach()
    End Function

    Public Function TimKiem(ByVal maTheLoai As Integer) As TheLoaiDTO
        'kiem tra business rule neu co
        Dim tldao As New TheLoaiDAO()
        Dim tldto As TheLoaiDTO
        tldto = tldao.TimKiem(maTheLoai)
        Return tldto
    End Function
End Class
